unit ufrmSplashAdmin;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxControls,
  cxContainer, cxEdit,










  cxImage, cxLabel, dxGDIPlusClasses, cxGraphics, cxLookAndFeels,
  cxLookAndFeelPainters, dxSkinsCore, dxSkinOffice2007Blue;

type
  TfrmSplash = class(TForm)
    imgSplash: TcxImage;
    lblLoad: TcxLabel;
  private
    procedure SetLoad(const Value: String);
    { Private declarations }
  public
    { Public declarations }
  published
    property Load: String write SetLoad;
  end;

var
  frmSplash: TfrmSplash;

implementation

{$R *.dfm}

{ TfrmSplash }

procedure TfrmSplash.SetLoad(const Value: String);
begin
  lblLoad.Caption:= Value;
  Refresh;
end;

end.
